home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 1.iso / pc / data / book310.dir / 00015.ls < prev    next >
Encoding:
Text File  |  1996-09-06  |  4.5 KB  |  121 lines
  1. on checkColumn
  2.   global gColumn, gRow
  3.   if (the mouseH >= 164) and (the mouseH < 310) then
  4.     set gColumn to 1
  5.     checkRow()
  6.   else
  7.     if (the mouseH >= 310) and (the mouseH < 456) then
  8.       set gColumn to 2
  9.       checkRow()
  10.     else
  11.       if (the mouseH >= 456) and (the mouseH < 602) then
  12.         set gColumn to 3
  13.         checkRow()
  14.       else
  15.         set gColumn to 0
  16.         set the castNum of sprite 10 to cast "m40"
  17.         updateStage()
  18.       end if
  19.     end if
  20.   end if
  21. end
  22.  
  23. on checkRow
  24.   global gColumn, gRow
  25.   set upCast to the number of cast "m40"
  26.   if (the mouseV >= 124) and (the mouseV < 146) then
  27.     set gRow to 1
  28.     set downCast to the number of cast ("b" & gColumn & "." & gRow)
  29.     set the castNum of sprite 10 to downCast
  30.     updateStage()
  31.   else
  32.     if (the mouseV >= 146) and (the mouseV < 169) then
  33.       set gRow to 2
  34.       set downCast to the number of cast ("b" & gColumn & "." & gRow)
  35.       set the castNum of sprite 10 to downCast
  36.       updateStage()
  37.     else
  38.       if (the mouseV >= 169) and (the mouseV < 191) then
  39.         set gRow to 3
  40.         set downCast to the number of cast ("b" & gColumn & "." & gRow)
  41.         set the castNum of sprite 10 to downCast
  42.         updateStage()
  43.       else
  44.         if (the mouseV >= 191) and (the mouseV < 213) then
  45.           set gRow to 4
  46.           set downCast to the number of cast ("b" & gColumn & "." & gRow)
  47.           set the castNum of sprite 10 to downCast
  48.           updateStage()
  49.         else
  50.           if (the mouseV >= 213) and (the mouseV < 235) then
  51.             set gRow to 5
  52.             set downCast to the number of cast ("b" & gColumn & "." & gRow)
  53.             set the castNum of sprite 10 to downCast
  54.             updateStage()
  55.           else
  56.             if (the mouseV >= 235) and (the mouseV < 257) then
  57.               set gRow to 6
  58.               set downCast to the number of cast ("b" & gColumn & "." & gRow)
  59.               set the castNum of sprite 10 to downCast
  60.               updateStage()
  61.             else
  62.               if (the mouseV >= 257) and (the mouseV < 279) then
  63.                 set gRow to 7
  64.                 set downCast to the number of cast ("b" & gColumn & "." & gRow)
  65.                 set the castNum of sprite 10 to downCast
  66.                 updateStage()
  67.               else
  68.                 if (the mouseV >= 279) and (the mouseV < 301) then
  69.                   set gRow to 8
  70.                   set downCast to the number of cast ("b" & gColumn & "." & gRow)
  71.                   set the castNum of sprite 10 to downCast
  72.                   updateStage()
  73.                 else
  74.                   if (the mouseV >= 301) and (the mouseV < 323) then
  75.                     set gRow to 9
  76.                     set downCast to the number of cast ("b" & gColumn & "." & gRow)
  77.                     set the castNum of sprite 10 to downCast
  78.                     updateStage()
  79.                   else
  80.                     if (the mouseV >= 323) and (the mouseV < 345) then
  81.                       set gRow to 10
  82.                       set downCast to the number of cast ("b" & gColumn & "." & gRow)
  83.                       set the castNum of sprite 10 to downCast
  84.                       updateStage()
  85.                     else
  86.                       if (the mouseV >= 345) and (the mouseV < 367) then
  87.                         set gRow to 11
  88.                         set downCast to the number of cast ("b" & gColumn & "." & gRow)
  89.                         set the castNum of sprite 10 to downCast
  90.                         updateStage()
  91.                       else
  92.                         if (the mouseV >= 367) and (the mouseV < 389) then
  93.                           set gRow to 12
  94.                           set downCast to the number of cast ("b" & gColumn & "." & gRow)
  95.                           set the castNum of sprite 10 to downCast
  96.                           updateStage()
  97.                         else
  98.                           if (the mouseV >= 389) and (the mouseV < 412) then
  99.                             set gRow to 13
  100.                             set downCast to the number of cast ("b" & gColumn & "." & gRow)
  101.                             set the castNum of sprite 10 to downCast
  102.                             updateStage()
  103.                           else
  104.                             set gRow to 0
  105.                             set the castNum of sprite 10 to cast "m40"
  106.                             updateStage()
  107.                           end if
  108.                         end if
  109.                       end if
  110.                     end if
  111.                   end if
  112.                 end if
  113.               end if
  114.             end if
  115.           end if
  116.         end if
  117.       end if
  118.     end if
  119.   end if
  120. end
  121.